NavigationPaging<PagingType> Class

Paging in a list of string with navigation

Dim words As New Generic.List(Of String)
Dim blindText() As String = "Weit hinten, hinter den Wortbergen, fern der Länder Vokalien und Konsonantien leben die Blindtexte. Abgeschieden wohnen Sie in Buchstabhausen an der Küste des Semantik, eines großen Sprachozeans. Ein kleines Bächlein namens Duden fließt durch ihren Ort und versorgt sie mit den nötigen Regelialien. Es ist ein paradiesmatisches Land, in dem einem gebratene Satzteile in den Mund fliegen. Nicht einmal von der allmächtigen Interpunktion werden die Blindtexte beherrscht - ein geradezu unorthographisches Leben. Eines Tages aber beschloß eine kleine Zeile Blindtext, ihr Name war Lorem Ipsum, hinaus zu gehen in die weite Grammatik. Der große Oxmox riet ihr davon ab, da es dort wimmele von bösen Kommata, wilden Fragezeichen und hinterhältigen Semikoli, doch das Blindtextchen ließ sich nicht beirren. Es packte seine sieben Versalien, schob sich sein Initial in den Gürtel und machte sich auf den Weg. Als es die ersten Hügel des Kursivgebirges erklommen hatte, warf es einen letzten Blick zurück auf die Skyline seiner Heimatstadt Buchstabhausen, die Headline von Alphabetdorf und die Subline seiner eigenen Straße, der Zeilengasse. Wehmütig lief ihm eine rethorische Frage über die Wange, dann setzte es seinen Weg fort. Unterwegs traf es eine Copy. Die Copy warnte das Blindtextchen, da, wo sie herkäme wäre sie zigmal umgeschrieben worden und alles, was von ihrem Ursprung noch übrig wäre, sei das Wort ""und"" und das Blindtextchen solle umkehren und wieder in sein eigenes, sicheres Land zurückkehren. Doch alles Gutzureden konnte es nicht überzeugen und so dauerte es nicht lange, bis ihm ein paar heimtückische Werbetexter auflauerten, es mit Longe und Parole betrunken machten und es dann in ihre Agentur schleppten, wo sie es für ihre Projekte wieder und wieder mißbrauchten. Und wenn es nicht umgeschrieben wurde, dann benutzen Sie es immernoch.".Split(" ")
For ix As Integer = 0 To blindText.Length - 1
   words.Add(blindText(ix))
Next
dim mip as integer = 5
dim map as integer = 7
Response.Write("paging with " & mip & " to " & map & " itmes per page")
' create paging object
Dim paging As New ppm3dakClient.Navigation.NavigationPaging(Of String)(words, mip, map)
' write info for the paging
Response.Write("TESTPAGES: " & paging.Count & "<br>Items per page:" & paging.ItemsPerPage & "<hr>")
' read the page parameter - by default its set to zero if the page parameter is empty
Dim apage As Integer = CInt(Request("page"))
' write out the words
For Each thisWord As String In paging.page(apage)
   Response.Write(thisWord & "<br>")
Next
' write the navigation
If Not paging.page(apage).isFirstPage Then Response.Write("&nbsp;<a href='?page=" & apage - 1 & "'>previous</a>&nbsp;")
For Each index As Integer In paging.page(apage).PagingNavigation(15)
   If index = apage Then Response.Write("<b>")
   Response.Write("&nbsp;<a href='?page=" & index & "'>" & index + 1 & "</a>&nbsp;")
   If index = apage Then Response.Write("</b>")
Next
If Not paging.page(apage).isFirstPage Then Response.Write("&nbsp;<a href='?page=" & apage + 1 & "'>next</a>&nbsp;")
Response.Write("<br>")